home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / reushow.arc / REU SHOW (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  4KB  |  131 lines
  1. 10 REM *******************************
  2. 20 REM *** 1750/1764 REU SLIDESHOW ***
  3. 30 REM *** DESIGNED AND WRITTEN BY ***
  4. 40 REM *** - JAMES HASTINGS-TREW - ***
  5. 50 REM ***      JULY 19,1988       ***
  6. 60 REM ***  AT THE SUGGESTION OF   ***
  7. 70 REM ***    JUDITH M. BALDWIN    ***
  8. 80 REM ***    OF THE E.C.C.U.G.    ***
  9. 90 REM *******************************
  10. 100 :
  11. 110 IF A=1THEN564
  12. 120 IF X=0THENX=1:GOSUB165:IFDX=18THENLOAD"FASTBOOT",8,1
  13. 130 IFX=1THENX=2:GOSUB140:IFDX=18THENSYS51200
  14. 135 GOTO440
  15. 140 FORA=49154TO49320:REM INSTALL ML
  16. 150 READI:POKEA,I
  17. 160 NEXT:DIMF$(52):RETURN
  18. 165 OPEN15,8,15,"U:":INPUT#15,A$,B$:DX=18:SX=1:CLOSE15
  19. 166 IFRIGHT$(B$,4)="1581"THENDX=40:SX=3
  20. 167 RETURN
  21. 170 DATA 173,17,208,41,239,9,32,141
  22. 180 DATA 17,208,173,22,208,41,223,9
  23. 190 DATA 16,141,22,208,173,24,208,41
  24. 200 DATA 240,9,8,141,24,208,76,43
  25. 210 DATA 192,173,17,208,41,239,141,17
  26. 220 DATA 208,162,127,160,64,134,252,132
  27. 230 DATA 251,162,4,160,0,134,254,132
  28. 240 DATA 253,162,131,160,39,32,127,192
  29. 250 DATA 162,131,160,40,134,252,132,251
  30. 260 DATA 162,216,160,0,134,254,132,253
  31. 270 DATA 162,135,160,15,32,127,192,173
  32. 280 DATA 16,135,141,33,208,162,96,160
  33. 290 DATA 0,134,252,132,251,162,32,160
  34. 300 DATA 0,134,254,132,253,162,127,160
  35. 310 DATA 63,32,127,192,173,17,208,9
  36. 320 DATA 16,141,17,208,96,142,1,192
  37. 330 DATA 140,0,192,160,0,177,251,145
  38. 340 DATA 253,165,252,205,1,192,208,8
  39. 350 DATA 165,251,205,0,192,208,1,96
  40. 360 DATA 230,251,208,2,230,252,230,253
  41. 370 DATA 208,227,230,254,76,135,192
  42. 380 SYS49154  :REM SHOW PIC
  43. 390 RETURN
  44. 400 POKE53265,PEEK(53265)AND223 :REM PUT SCREEN BACK TO NORMAL
  45. 410 POKE53272,(PEEK(53272)AND240)OR4
  46. 420 POKE53270,PEEK(53270)AND239
  47. 430 POKE53281,FC:POKE646,CC:RETURN
  48. 435 :
  49. 436 REM START OF PROGRAM
  50. 437 :
  51. 440 POKE53280,0:POKE53281,0
  52. 450 PRINT"[147][158]     1750/1764 [203]OALAPAINT [211]LIDE [211]HOW    "
  53. 460 POKE57098,0:IFPEEK(57098)=63THENGOTO466:REM TEST FOR PRESENCE OF REU
  54. 465 PRINT"[155] [211]ORRY, THIS PROGRAM WILL ONLY WORK WITH AN [210][197][213][155] INSTALLED!":END
  55. 466 PT=26:IFPEEK(57088)AND16=16THENPT=52:MX=PT:REM TEST FOR REU SIZE
  56. 470 GOSUB1110
  57. 490 INPUT"[159] [197]NTER TIME (SEC.) FOR EACH PICTURE";TM:IFTM<0ORTM>59THEN490
  58. 500 TM=TM*60
  59. 505 PRINT"[155] [212]HERE IS ROOM FOR"PT"[155]PICTURES":PRINT" IN THE [210][197][213]."
  60. 510 PRINT:PRINT" [201]NSERT A DATA DISK IN DRIVE AND PRESS"
  61. 511 PRINT" [210][197][212][213][210][206] TO LOAD MORE PICTURES, OR "
  62. 512 PRINT" PRESS [211][208][193][195][197] TO START THE SHOW."
  63. 520 POKE198,0:WAIT198,1:A=PEEK(631):POKE198,0:IF(A<>13)AND(A<>32)THEN520
  64. 521 IFA=32 THEN 567
  65. 540 GOSUB 700
  66. 550 IFNN=0THENPRINT"[147]SORRY, NO KOALA PICTURES ON THIS DISK":GOTO510
  67. 560 PRINT" [206]OW LOADING PICTURES...":X=0
  68. 561 G$=LEFT$(F$(X),15)
  69. 563 A=1:LOADG$,8,1
  70. 564 PT=PT-1:GOSUB 870:X=X+1:IFX<NNTHEN561
  71. 565 IF PT>0THEN505
  72. 566 PRINT" [210][197][213][155] IS FULL - NOW STARTING THE SHOW"
  73. 567 PRINT" [153][208]RESS ANY KEY DURING SHOW TO STOP.":NN=MX-PT:IFNN>0THENGOTO570
  74. 568 PRINT" [150][206]O PICTURES LOADED INTO [210][197][213][150]![146]":END
  75. 570 GS=0
  76. 580 IFGS=NN THEN 570
  77. 600 FC=PEEK(53281):CC=PEEK(646)
  78. 610 GOSUB 990
  79. 640 GOSUB380:TI$="000000"
  80. 650 IFTI<TMTHEN650
  81. 660 GS=GS+1:GETA$:IFA$=""THEN580
  82. 670 GOSUB400
  83. 680 PRINT"[147][196]ONE!":POKE53281,0
  84. 690 END
  85. 700 REM DIRECTORY READ
  86. 710 NN=0:PRINT"[147][158]LIST OF ALL KOALA PICTURES ON THIS DISK"
  87. 720 OPEN15,8,15:OPEN5,8,5,"#":T=DX:S=SX:NN=0:Z$=CHR$(0)
  88. 730 PRINT#15,"U1:"5;0;T;S:PRINT#15,"B-P:"5;0:GET#5,T$,S$
  89. 740 T=ASC(T$+Z$):S=ASC(S$+Z$):BP=5:FL=1
  90. 750 PRINT#15,"B-P:"5;BP:GET#5,A$:IFA$="[129]"THENGOSUB800
  91. 760 BP=BP+32:FL=FL+1:IFFL<>9THEN750
  92. 770 IFT=DXTHEN730
  93. 780 CLOSE5:CLOSE15:T$="":S$="":A$="":N=FRE(0)
  94. 785 IF NN>PT THEN NN=PT
  95. 790 RETURN
  96. 800 REM LISTER
  97. 810 PRINT"[193][146]";
  98. 820 F$(NN)="":FORX=1TO15
  99. 830 F$(NN)=F$(NN)+A$:GET#5,A$:PRINTA$;
  100. 840 NEXT
  101. 850 N=FRE(0):NN=NN+1:PRINT
  102. 860 RETURN
  103. 870 REM LOAD PIC INTO REU
  104. 880 AD=((MX-1)-PT)*10010:AB=INT(AD/65536):AD=AD-(65536*AB):AH=INT(AD/256)
  105. 890 AL=AD-(AH*256)
  106. 900 POKE57096,39:REM PIC LEN HI-BYTE
  107. 910 POKE57095,17:REM PIC LEN LO-BYTE
  108. 920 POKE57094,AB:REM REU BANK
  109. 930 POKE57093,AH:REM REU ADDR HI-BYTE
  110. 940 POKE57092,AL:REM REU ADDR LO-BYTE
  111. 950 POKE57091,96:REM PIC ADDR HI-BYTE
  112. 960 POKE57090,00:REM PIC ADDR LO-BYTE
  113. 970 POKE57089,144:REM DO IT!
  114. 980 RETURN
  115. 990 REM LOAD PIC FROM REU
  116. 1000 AD=GS*10010:AB=INT(AD/65536):AD=AD-(65536*AB):AH=INT(AD/256)
  117. 1010 AL=AD-(AH*256)
  118. 1020 POKE57096,39:REM PIC LEN HI-BYTE
  119. 1030 POKE57095,17:REM PIC LEN LO-BYTE
  120. 1040 POKE57094,AB:REM REU BANK
  121. 1050 POKE57093,AH:REM REU ADDR HI-BYTE
  122. 1060 POKE57092,AL:REM REU ADDR LO-BYTE
  123. 1070 POKE57091,96:REM PIC ADDR HI-BYTE
  124. 1080 POKE57090,00:REM PIC ADDR LO-BYTE
  125. 1090 POKE57089,145:REM DO IT!
  126. 1100 RETURN
  127. 1110 REM INITIALIZE REU
  128. 1120 POKE 57098,0:REM ADDR CONTROL
  129. 1130 POKE 57097,128:REM INTERRUPTS
  130. 1140 RETURN
  131.